SET CENT ON
SET PROC TO SOSPRO
*SET PROC TO ADDRPRO1
SET PROC TO ADDREPRO
SET PROC TO BOXPROC
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
DO START
DR='N:'
*REST FROM n:STNAME ADDI
*PUBLIC SITENAME,SITELOCA
F1='DRUGS'
F2='DISPOS'
F3='PUR_DRUG'
F4='PUR_DISP'
F5='SUPPLIER'
F6='PUR_TEMP'
SELE 1
SET EXCLU OFF
USE &DR&F6
IF NET_USE('&DR&F6',.T.,'1',0)
   ZAP
ENDIF
PL1=0
DO WHILE .T.
   SET COLO TO BG+/B,W+/N
   CLEA
   DO ADDRESSA
   DO ADDRTITL WITH ' P U R C H A S I N G    P R O G R A M M E '
   SET COLOR TO W+/N
   @ 9,5 CLEA TO 21,50
*   @ 19,55 CLEA TO 21,77
   SET COLOR TO N/BG,W+/N
   @ 8,3 CLEA TO 20,48
   @ 8,3 TO 20,48 DOUBLE
*   @ 18,53 CLEA TO 20,75
*   @ 18,53 TO 20,75 DOUBLE
   @ 9 ,05 PROMPT "A .. PREPARE PURCHASE ORDERS              "
   @ 11,05 PROMPT "B .. PRINT PURCHASE ORDERS                "
   @ 13,05 PROMPT "C .. REPRINT PURCHASE ORDERS              "
   @ 15,05 PROMPT "D .. DISPLAY PURCHASE ORDERS              "
*   @ 17,05 PROMPT "E .. PRINT/DISPLAY REORDER STOCK          "
   @ 17,05 PROMPT "E .. PRINT RECAP. OF PURCHASE ORDER       "
*   @ 19,05 PROMPT "G .. LIST OF DRUGS, DISPOSABLE, SUPPLIERS "
   @ 19,05 PROMPT "X .. EXIT PROGRAMME"
   MENU TO PL1
   SET COLOR TO BG+/B,W+/N
   DO CASE
   CASE PL1=1
      do purc_ord
   CASE PL1=2
      DO PURC_PR
   CASE PL1=3
      DO PURC_CR
   CASE PL1=4
      DO PURC_DSP
*   CASE PL1=5
*      DO PURC_D
   CASE PL1=5
      DO PURC_E
*   CASE PL1=7
*      DO INPA
   CASE PL1=6  .OR. LASTKEY()=27
      CLEA
      RETURN
   ENDCASE
ENDDO

